    0 print"{clr}":data15,31,63,127,255,15,14,12,8:m=peek(215)/128+1:ifm=2thenfast
    1 fori=0to8:readp:ifi<5thenx=20:gosub4
    2 forj=0to7:if(pand2^j)thenx=19-j:gosub4:x=21+j:gosub4
    3 nextj,i:getkeya$:end
    4 char1,x*m,12-i,left$("**",m):char1,x*m,12+i,left$("**",m):return
